home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / dskut / scav31.zip / SCAV31.ASM < prev    next >
Assembly Source File  |  1988-10-06  |  13KB  |  541 lines
  1.     title scavenge Copyright (c) T. Jennings 1983
  2. ;
  3. ;****************************************
  4. ;*                    *
  5. ;*        SCAVENGE        *
  6. ;*                    *
  7. ;*    Mark bad blocks on MSDOS     *
  8. ;*    as allocated in the FAT.    *
  9. ;*                    *
  10. ;*    T. Jennings 5 June 82        *
  11. ;*      created 15 Sept. 82        *
  12. ;*    Modified 14 December 1984    *
  13. ;*        by David Gwillim        *
  14. ;*                    *
  15. ;*                    *
  16. ;****************************************
  17. ;
  18. ;See SCAV31.DOC for details on functioning, updates, etc.    v3.01
  19. ;
  20. ;Reads all sectors in logical MSDOS blocks
  21. ;and marks the file allocation tables such
  22. ;that the blocks are permanently allocated
  23. ;where CHKDSK will not deallocate them.
  24. ;
  25. ;
  26. ;This version works on any 2.xx MSDOS or
  27. ;PCDOS, on any media type, fixed or removable.
  28. ;One (major) limitation: it will not map out
  29. ;blocks that are already allocated to a file;
  30. ;it will say "block used", but won't tell you
  31. ;which file it is in.
  32. ;
  33. ;If SCAVENGE finds any bad blocks, it will ask
  34. ;you whether or not you want the disk updated.
  35. ;You can safely run it just to see if the disk 
  36. ;is OK.
  37. ;
  38. ;Enter 'Q' at any time to abort the run.            v3.01
  39.  
  40. ;MASM, LINK, then EXE2BIN this to make a COM
  41. ;file. It will not run as an EXE file. NOTE:
  42. ;LINK will give you a 'Warning: no STACK 
  43. ;segment' error: ignore it.
  44. ;
  45.  
  46. ;v3.01
  47. ; - Slight tweaking, reformatting.
  48. ; - v3.00 forced DS, SS to CS; unnecessary.
  49. ; - v3.00 had its own stack; unnecessary.
  50. ; - Removed some system functions, placing them inline.
  51. ; - Separated extensive documentation into separate file,
  52. ;   SCAVENGE.DOC.
  53. ; - No functional changes.
  54. ; David Kirschbaum
  55. ; Toad Hall
  56. ; kirsch@braggvax.ARPA
  57.  
  58. CR    equ    0dh
  59. LF    equ    0ah
  60. PutStr    macro            ;                v3.01
  61.     mov    ah,9
  62.     int    21h
  63.     endm
  64.  
  65. ;Beep procedure count values
  66. ;---------------------------
  67. ;To generate a given freqency note out of the speaker with the Beep procedure
  68. ;on the PC using Channel 2 of the 8253 timer, the channel 2 count register
  69. ;must be loaded with a value such that the 8253 input clock frequency
  70. ;(1.19318 MHz) divided by the count figure equals the audio frequency.
  71.  
  72. F176HZ    equ    6779    ; 176 Hz count value
  73. F352HZ    equ    3390    ; 352 Hz count value
  74. F704HZ    equ    1695    ; 704 Hz count value
  75. F1408HZ    equ    847    ; 1408 Hz count value
  76.  
  77. page
  78. Cseg    segment para public 'code'
  79.     assume CS:Cseg, DS:Cseg, ES:Cseg, SS:Cseg
  80. ;
  81. ;MSDOS PSP stuff.
  82. ;
  83.     org    5ch
  84. tfcb    label byte
  85.  
  86.     org    80h
  87. tbuff    label byte
  88.  
  89.     org    100h
  90.  
  91. Scavenge    proc    near
  92.     jmp    Start
  93. ;
  94. ;Disk parameters:
  95. ;
  96. blkcnt    dw    0    ;blocks this disk
  97. blksize    dw    0    ;sectors per block
  98. secsize    dw    0    ;phys. sector size
  99. badcnt    dw    0    ;# bad blocks found
  100. newbad    dw    0    ;new bad ones
  101. block    dw    0    ;current block
  102. sector    dw    0    ;sector to read
  103. disk    db    0    ;selected disk
  104. curdsk    db    0    ;current disk.
  105. fatsec    dw    0    ;1st FAT sector,
  106. fatcnt    dw    0    ;FAT sec count.
  107.  
  108. ;    dw 128 dup 0
  109. ;stack    dw    0    ;what else
  110. ;    db    16 dup('STACK    ')
  111. ;stack    equ    $
  112. Scavenge    endp
  113. page
  114. ;
  115. ;Say who we are, describe the disk we are
  116. ;about to fix, ask to continue or abort.
  117. ;
  118. Start    proc    near
  119. ;    cli            ;Disable interrupts while we move stack
  120. ;    mov    sp,offset stack
  121. ;    sti            ;Re-enable interrupts
  122.     mov    dx,offset signon
  123.     PutStr
  124.  
  125.     mov    bx,F176HZ    ;Alert user audibly
  126.     call    Beep
  127.     mov    bx,F704HZ
  128.     call    Beep
  129.     mov    bx,F352HZ
  130.     call    Beep
  131.     mov    bx,F1408HZ
  132.     call    Beep
  133.  
  134.     mov    ax,0C08H    ;flush, char in with no echo    v3.01
  135.     int    21h
  136.     or    al,20h        ;Make character lower case
  137.     cmp    al,'q'        ;Quit?
  138.     jne    St0
  139.      mov    dx,offset abort
  140.      jmp    short Msg_Exit    ;display, terminate        v3.01
  141.  
  142. St0:    call    SetUp        ;get disk stuff
  143.     jnc    St1        ;went ok
  144. Msg_Exit:            ;                v3.01
  145.      PutStr
  146.      int    20h        ;error, terminate.
  147.  
  148. St1:    call    ListStat    ;describe dsk
  149. ;
  150. ;Find all the bad blocks, if any, display them,
  151. ;ask if we should update the FAT. If so, write
  152. ;it out.
  153. ;
  154.     mov    dx,offset crlf    ;new line
  155.     PutStr
  156.     call    FindBad        ;map bad,
  157.     call    ListBad        ;list them,
  158.     cmp    newbad,0    ;if new bad
  159.     je    St2        ;blocks...
  160.  
  161.     mov    dx,offset updstr    ;ask if we
  162.     PutStr                ;should update
  163.     mov    ax,0C08H        ;flush, char in with no echo    v3.01
  164.     int    21h
  165.     and    al,5fh            ;uppercase
  166.     mov    dx,offset noupdte    ;assume no update    v3.01
  167.     cmp    al,'Y'
  168.     jne    St1B            ;nope, no update
  169.      mov    al,disk            ;write out the
  170.      mov    dx,fatsec        ;FAT,
  171.      mov    cx,fatcnt
  172.      mov    bx,offset fatbuf
  173.      int    26h
  174.      pop    ax            ;pop flags after Int 26H
  175.      mov    dx,offset update    ;fall thru to        v3.01
  176.  
  177. St1B:    PutStr                ;display msg        v3.01
  178. St2:
  179.     mov    dl,curdsk    ;reselect the original disk    v3.01
  180.     mov    ah,0eh        ;                v3.01
  181.     int    21h        ;                v3.01
  182.     int    20h        ;terminate
  183.  
  184. signon    db    CR,LF,9,'*********************************************'
  185.     db    CR,LF,9,'* DOS 2.xx Bad Sector Mapper - Version 3.01 *'
  186.     db    CR,LF,9,'* Updated by David Gwillim 18 December 1984 *'
  187.     db    CR,LF,9,'*        Again by Toad Hall, 6 Oct 88       *'
  188.     db    CR,LF,9,'* Original program by T. Jennings 5 June 83 *'
  189.     db    CR,LF,9,'*********************************************'
  190.     db    CR,LF,LF
  191.     db    'Type Q to abort at any time, any other key to continue ...'
  192.     db    CR,LF,'$'
  193. updstr    db    CR,LF,LF,'Want the disk updated? [y,n] $'
  194. noupdte    db    CR,LF,LF,'FAT not updated',CR,LF,'$'
  195. update    db    CR,LF,LF,'FAT updated'
  196. crlf    db    CR,LF,'$'        ;share this        v3.01
  197. Start    endp
  198.  
  199. page
  200. ;
  201. ;Get the data on the specified disk. Return 
  202. ;carry if no drive specified. Returns ES:DI
  203. ;pointing to the FAT for the selected drive.
  204. ;
  205. SetUp    proc    near
  206.     mov    ah,0dh            ;reset disk system    v3.01
  207.     int    21h
  208.     mov    ah,19h            ;get current disk    v3.01
  209.     int    21h
  210.     mov    curdsk,al        ;save it,
  211.     mov    al,tfcb            ;make sure a
  212.     cmp    al,0            ;new one spec'd
  213.     stc                ;quit if none,
  214.     mov    dx,offset strstr    ;'Must specify disk drive' msg
  215.     jz    gd1            ;exit
  216.  
  217.     dec    al            ;make 0-N,
  218.     mov    disk,al
  219.     mov    dl,al            ;select disk,        v3.01
  220.     mov    ah,0eh
  221.     int    21h
  222.  
  223.     mov    di,DS            ;save our DS a sec    v3.01
  224.     mov    ah,1bh
  225.     int    21h
  226.     mov    DS,di            ;restore DS        v3.01
  227.     mov    blkcnt,dx        ;save # blocks,
  228.     mov    secsize,cx        ;sector size,
  229.     xor    ah,ah            ;clear msb        v3.01
  230.     mov    blksize,ax        ;secs/block.
  231.  
  232.     mov    di,DS            ;save DS a sec        v3.01
  233.     mov    dl,disk            ;now get the
  234.     inc    dl            ;drive 1=A, b=2
  235.     mov    ah,32h            ;FAT,
  236.     int    21h            ;get the DPB,
  237.  
  238.     mov    cx,[bx+15]        ;CX= sec count,
  239.     xor    ch,ch            ;clear msb        v3.01
  240.     mov    dx,[bx+6]        ;DX= 1st sec,
  241.     mov    DS,di            ;restore DS        v3.01
  242.     mov    fatcnt,cx        ;save both,
  243.     mov    fatsec,dx
  244.  
  245.     mov    al,disk            ;AL= drive #,
  246.     mov    bx,offset fatbuf    ;DS:BX= buffer
  247.     int    25h            ;read the FAT,
  248.     pop    ax            ;pop flags after Int 25H
  249.     mov    dx,offset bscstr    ;return with msg
  250. gd1:    ret
  251.  
  252. strstr    db    CR,LF,'Must specify a disk drive.$'
  253. bscstr    db    CR,LF,'Bad FAT sector: disk not useable.$'
  254.  
  255. SetUp    endp
  256.  
  257. page
  258. ;
  259. ;Read the entire disk looking for bad blocks.
  260. ;When one is found, go mark it as an allocated
  261. ;bad block.
  262. ;
  263. FindBad    proc    near
  264.     xor    ax,ax            ;get a handy 0        v3.01
  265.     mov    block,ax        ;1st block,
  266.     mov    badcnt,ax        ;none yet,
  267.  
  268. BlockLup:
  269.     call    KbdChk            ;QUIT char input from the keyboard?
  270.     jnc    FB1A            ;nope
  271.      mov    dx,offset abort        ;'Aborting program'
  272.      PutStr
  273.      ret
  274.  
  275. FB1A:    mov    dx,offset blkstr    ;type 'block '
  276.     PutStr
  277.     mov    bx,block        ;block number,
  278.     call    OutDec
  279.     call    ReadBlk            ;read a block,
  280.     jnc    Fb3            ;if bad, 
  281.     inc    badcnt            ;count it,
  282.     mov    dx,offset badstr
  283.     PutStr                ;type 'bad'
  284.     call    MapOut            ;mark bad,
  285.     mov    dx,offset cntstr    ;'Already used'
  286.     jc    Fb2            ;error if can't
  287.     add    newbad,cx        ;count it,
  288.     mov    dx,offset alrstr    ;'Already marked'
  289.     jcxz    Fb2            ;error if already marked
  290.      mov    dx,offset mrkstr    ;'mapped out'
  291.      mov    bx,F704HZ        ;Warn user audibly
  292.      call    Beep
  293.      mov    bx,F176HZ
  294.      call    Beep
  295. Fb2:    PutStr
  296.     mov    bx,F1408HZ        ;Warn user audibly
  297.     call    Beep
  298.     mov    bx,F176HZ
  299.     call    Beep
  300.  
  301. Fb3:    inc    block            ;next block,
  302.     dec    blkcnt            ;another...
  303.     jnz    BlockLup        ;keep looking.
  304.     ret
  305.  
  306.  
  307. blkstr    db    CR,'Block $'
  308. badstr    db    ' bad,$'
  309. alrstr    db    ' already marked.',CR,LF,'$'
  310. mrkstr    db    ' mapped out.',LF,'$'
  311. cntstr    db    " already used! I don't know which file.",LF,'$'
  312. abort    db    ' ... Aborting program',CR,LF,LF,'$'
  313.  
  314. FindBad    endp
  315. page
  316. ;
  317. ;Mark the current block as bad in the FAT.
  318. ;Multiply the block number by 1.5 to find the
  319. ;block number, (actually *3, /2) and if not
  320. ;used, mark it bad. If used, report which file
  321. ;it's in. If it's already mapped as bad, 
  322. ;return CX=0, else return CX=1.
  323. ;
  324. MapOut    proc    near
  325.     mov    bx,block        ;block,
  326.     shl    bx,